home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 15 / Commodore_Disc_15_19xx_-_de.d64 / ca - movie show (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  24 lines
  1. 0 rem* ca - movie show *
  2. 1 poke157,.:poke53269,.:ifu=.thenu=.2:load"ca - rout 1",8,1
  3. 2 ifu<.5thenu=.5:load"ca menu ctrl",8,1
  4. 3 ifu<1thenu=1:load"ca - rout 2",8,1
  5. 10 poke55,.:poke56,14:clr:sys39825:.k,160,100:poke650,128:open15,8,15:fg=37659
  6. 20 fe=37720:poke49553,1:bo=53280:jy=56320:poke49310,14:poke37725,14:r$=chr$(13)
  7. 30 .r,.,.,308,188:goto10000
  8. 800 close1:fori=.to1:printa$;:get#15,a$:i=-(a$=r$):next:waitjy,16,16:goto30
  9. 10000 poke56576,3:poke53272,23:poke53265,27:pokebo,8:pokebo+1,15:.n,4
  10. 10010 print"[144][147]"tab(10)"[195][193] - [205]ovie [211]how:":printtab(14)"[218]eigen
  11. 10020 [153][163]14)"(NULL)aden":[153][163]14)"(NULL)erge":[153][163]14)"(NULL)peichern
  12. 10030 .p,1,10,6,27,8,1:.p,2,10,10,27,12,1:.p,3,10,14,27,16,1:.p,4,10,18,27,20,1
  13. 10040 .s,10:i=st:ifi=1andalthenpokebo,4:sys49244,15,0:goto30
  14. 10050 input"[147]  [206]ame ";n$:ifi-1thenoni-2goto48500,49000
  15. 48000 poke3584,254:al=.
  16. 48500 on-(al>-1andi=25)goto30:print"  loading":sysfe:poke251,peek(253)
  17. 48510 poke252,peek(254):open1,8,.,n$:get#15,a$:on-(a$>"0")goto800:al=-1
  18. 48520 get#1,b$,b$:poke781,1:sys65478:sys37659:sys65484:ifpeek(252)>139goto48540
  19. 48530 sysfe:print35840-peek(253)-256*peek(254)"[194]ytes frei.":goto800
  20. 48540 print"zu lang!":close1:pokepeek(253)+256*peek(254),254:al=i=3:goto800
  21. 49000 onal+1goto190:print"  saving":sysfe:i=peek(253)+256*peek(254)-3584
  22. 49010 poke252,14:poke253,iand255:poke254,i/256:open1,8,1,n$:get#15,a$
  23. 49020 on-(a$>"0")goto800:poke251,.:cmd1,"ll";:sys37632:print#1:close1:goto30
  24.